home *** CD-ROM | disk | FTP | other *** search
/ .net (French) 1996 December / .net Magazine (FR) - Issue 02 - Dec 1996.iso / Utilpers / SUPERQUE / DATA.2 / FILTERS / PSINIT / GS_TYPE0.PS < prev    next >
Text File  |  1995-11-15  |  1KB  |  33 lines
  1. %    Copyright (C) 1992, 1994 Aladdin Enterprises.  All rights reserved.
  2. %    Licensed to Zenographics Inc. (Irvine, California) by Artifex Software Inc.
  3. %    under the OEM Agreement of December 21st, 1993.
  4.  
  5. % Initialization file for composite font facilities.
  6. % When this is run, systemdict is still writable.
  7.  
  8. % Define findencoding.
  9. % (cshow, rootfont, and setcachedevice2 are real operators.)
  10. % .encodingdict is defined and initialized in gs_init.ps.
  11. % .findencoding is defined in gs_init.ps.
  12. /findencoding { .findencoding } odef
  13.  
  14. % Redefine the setcachedevice step of Type1BuildChar
  15. % so that it takes Metrics2 and CDevProc into account.
  16. /setcache_C        % <charname> <wx> <wy> <llx> <lly> <urx> <ury>
  17.             %   setcache_C -
  18.  { currentdict /Metrics2 .knownget
  19.     { 7 index .knownget
  20.        { aload pop }
  21.        { 5 index 5 index 0 0 }
  22.       ifelse
  23.     }
  24.     { 5 index 5 index 0 0
  25.     }
  26.    ifelse
  27.    currentdict /CDevProc .knownget
  28.     { 12 -1 roll exch exec }
  29.     { 11 -1 roll pop }
  30.    ifelse
  31.    setcachedevice2
  32.  } bind def
  33.